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--File: NovaOps .mesa 

--Last edited by Sandman on August 23, 1977 9:28 PM 

DIRECTORY 

Mopcodes: FROM "mopcodes" , 
AltoFileDefs: FROM "altof iledefs" ; 

DEFINITIONS FROM 
Mopcodes , 
AltoFileDefs; 

NovaOps: DEFINITIONS * 
BEGIN 

-- in the definitions below, Finish/Abort must be 0/1 

NovaOpcode: TYPE * {Finish .Abort , OutLd , InLd , Pun t , JSR} ; 

CleanupReason: TYPE = {F inish .Abort .OutLd, InLd, Save, Restore, Check .Restart} ; 

Stop: MACHINE CODE [code: NovaOpcode] = INLINE [zSTOP]; 
Finish: NovaOpcode = 0; 
Abort: NovaOpcode = 1; 
Punt: NovaOpcode = 4; 

NovaOutLd: MACHINE CODE [code: NovaOpcode, file: POINTER TO CFP, message: POINTER] RETURNS [[0..2]] 
= INLINE [zSTOP]; 

OutLd: NovaOpcode = 2; 
-- return Q-> normal return; 1=> just InLd'ed; 2=> just booted 

NovalnLd: MACHINE CODE [code: NovaOpcode. file: POINTER TO CFP, message: POINTER] 
= INLINE [zSTOP]; 

InLd: NovaOpcode = 3; 

NovaJSR: MACHINE CODE [code: NovaOpcode, address: POINTER, arg: UNSPECIFIED] RETURNS [UNSPECIFIED] 

= INLINE [zSTOP]; 
-- JSR: NovaOpcode = 5; 

END. . . 


